Inlezen data
Voor meer achtergrond over de data lees hier.
Opschonen data
Een aantal codes moeten naar NA (=not available) worden veranderd. Dit is de standaard code in R voor ontbrekende waarden.
Visualiseren data
We kunnen kijken naar de verdelingen en kruisgrafieken bouwen.
hist(myDF$agea, col = "tomato", xlab = "Leeftijd")

plot(myDF$agea, myDF$netustm, col = "#0099e6")

boxplot(myDF$ppltrst~myDF$cntry, col = "violet")

grpByGndr <- myDF %>% filter(!is.na(gndr)) %>% group_by(gndr)
gndrSummy <- summarize(grpByGndr, count = n(), netusage = mean(netustm, na.rm = TRUE))
gndrSummy$gndr <- recode_factor(gndrSummy$gndr, `1` = "m", `2` = "f")
barplot(gndrSummy$netusage, names.arg = gndrSummy$gndr, col = "#00cc88")

Om wat meer controle te krijgen over de opmaak van de grafieken kun je de library ggplot toepassen.
p <- ggplot(myDF) +
geom_boxplot(aes(x = cntry, y = ppltrst), fill = "violet")
p

Met plotly kun je eenvoudig interactie toevoegen.
ggplotly(p , width = 800)
Removed 117 rows containing non-finite values (stat_boxplot).
LS0tCnRpdGxlOiAiQmlnIERhdGEgQW5hbHl0aWNzIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpgYGB7ciBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFLCBpbmNsdWRlPUZBTFNFLCBwYWdlZC5wcmludD1GQUxTRX0KIyBjaGVjay5wYWNrYWdlcyBmdW5jdGlvbjogaW5zdGFsbCBhbmQgbG9hZCBtdWx0aXBsZSBSIHBhY2thZ2VzLgojIENoZWNrIHRvIHNlZSBpZiBwYWNrYWdlcyBhcmUgaW5zdGFsbGVkLiBJbnN0YWxsIHRoZW0gaWYgdGhleSBhcmUgbm90LCB0aGVuIGxvYWQgdGhlbSBpbnRvIHRoZSBSIHNlc3Npb24uCmNoZWNrLnBhY2thZ2VzIDwtIGZ1bmN0aW9uKHBrZyl7CiAgICBuZXcucGtnIDwtIHBrZ1shKHBrZyAlaW4lIGluc3RhbGxlZC5wYWNrYWdlcygpWywgIlBhY2thZ2UiXSldCiAgICBpZiAobGVuZ3RoKG5ldy5wa2cpKSAKICAgICAgICBpbnN0YWxsLnBhY2thZ2VzKG5ldy5wa2csIGRlcGVuZGVuY2llcyA9IFRSVUUpCiAgICBzYXBwbHkocGtnLCByZXF1aXJlLCBjaGFyYWN0ZXIub25seSA9IFRSVUUpCn0KCiMgVXNhZ2UgZXhhbXBsZQpwYWNrYWdlczwtYygiZ3NoZWV0IiwgInRpZHl2ZXJzZSIsICJwbG90bHkiLCAibGVhZmxldCIpCmNoZWNrLnBhY2thZ2VzKHBhY2thZ2VzKQpsaWJyYXJ5KGdzaGVldCkKbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkocGxvdGx5KQpsaWJyYXJ5KGxlYWZsZXQpCmxpYnJhcnkocGxvdGx5KQpgYGAKCgojIElubGV6ZW4gZGF0YQpWb29yIG1lZXIgYWNodGVyZ3JvbmQgb3ZlciBkZSBkYXRhIGxlZXMgW2hpZXJdKGh0dHA6Ly93d3cuZXVyb3BlYW5zb2NpYWxzdXJ2ZXkub3JnL2RhdGEvbW9kdWxlLWluZGV4Lmh0bWwpLgoKYGBge3IgaW5jbHVkZT1GQUxTRX0KdXJsIDwtICJodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vaGFuYmVkcmlqZnNrdW5kZS9vbmRlcnpvZWsvbWFzdGVyL2JkYS9kYXRhL3NvYy10cnVzdC5jc3YiCm15REYgPC0gcmVhZC5jc3YodXJsKQoKc3RyKG15REYpCnN1bW1hcnkobXlERikKYGBgCgojIE9wc2Nob25lbiBkYXRhCkVlbiBhYW50YWwgY29kZXMgbW9ldGVuIG5hYXIgTkEgKD1ub3QgYXZhaWxhYmxlKSB3b3JkZW4gdmVyYW5kZXJkLiBEaXQgaXMgZGUgc3RhbmRhYXJkIGNvZGUgaW4gUiB2b29yIG9udGJyZWtlbmRlIHdhYXJkZW4uCgpgYGB7ciBpbmNsdWRlPUZBTFNFfQpteURGJGduZHJbbXlERiRnbmRyID09IDldIDwtIE5BCm15REYkYWdlYVtteURGJGFnZWEgPT0gOTk5XSA8LSBOQQpteURGJG53c3BvbFtteURGJG53c3BvbCAlaW4lIGMoNjY2Niw3Nzc3LDg4ODgsOTk5OSldIDwtIE5BCm15REYkbmV0dXN0bVtteURGJG5ldHVzdG0gJWluJSBjKDY2NjYsNzc3Nyw4ODg4LDk5OTkpXSA8LSBOQQpteURGJG5ldHVzb2Z0W215REYkbmV0dXNvZnQgJWluJSBjKDcsOCw5KV0gPC0gTkEKbXlERiRwcGx0cnN0W215REYkcHBsdHJzdCAlaW4lIGMoNzcsODgsOTkpXSA8LSBOQQpteURGJHBwbGZhaXJbbXlERiRwcGxmYWlyICVpbiUgYyg3Nyw4OCw5OSldIDwtIE5BCm15REYkcHBsaGxwW215REYkcHBsaGxwICVpbiUgYyg3Nyw4OCw5OSldIDwtIE5BCiAKc3VtbWFyeShteURGKQpgYGAKCiMgVmlzdWFsaXNlcmVuIGRhdGEKV2Uga3VubmVuIGtpamtlbiBuYWFyIGRlICB2ZXJkZWxpbmdlbiBlbiBrcnVpc2dyYWZpZWtlbiBib3V3ZW4uCgpgYGB7cn0KaGlzdChteURGJGFnZWEsIGNvbCA9ICJ0b21hdG8iLCB4bGFiID0gIkxlZWZ0aWpkIikKCnBsb3QobXlERiRhZ2VhLCBteURGJG5ldHVzdG0sIGNvbCA9ICIjMDA5OWU2IikKCmJveHBsb3QobXlERiRwcGx0cnN0fm15REYkY250cnksIGNvbCA9ICJ2aW9sZXQiKQoKZ3JwQnlHbmRyIDwtIG15REYgJT4lIGZpbHRlcighaXMubmEoZ25kcikpICU+JSBncm91cF9ieShnbmRyKQoKZ25kclN1bW15IDwtIHN1bW1hcml6ZShncnBCeUduZHIsIGNvdW50ID0gbigpLCBuZXR1c2FnZSA9IG1lYW4obmV0dXN0bSwgbmEucm0gPSBUUlVFKSkKZ25kclN1bW15JGduZHIgPC0gcmVjb2RlX2ZhY3RvcihnbmRyU3VtbXkkZ25kciwgYDFgID0gIm0iLCBgMmAgPSAiZiIpCmJhcnBsb3QoZ25kclN1bW15JG5ldHVzYWdlLCBuYW1lcy5hcmcgPSBnbmRyU3VtbXkkZ25kciwgY29sID0gIiMwMGNjODgiKQpgYGAKCk9tIHdhdCBtZWVyIGNvbnRyb2xlIHRlIGtyaWpnZW4gb3ZlciBkZSBvcG1hYWsgdmFuIGRlIGdyYWZpZWtlbiBrdW4gamUgZGUgbGlicmFyeSBgZ2dwbG90YCB0b2VwYXNzZW4uCgpgYGB7cn0KcCA8LSBnZ3Bsb3QobXlERikgKwogIGdlb21fYm94cGxvdChhZXMoeCA9IGNudHJ5LCB5ID0gcHBsdHJzdCksIGZpbGwgPSAidmlvbGV0IikKcApgYGAKCk1ldCBgcGxvdGx5YCBrdW4gamUgZWVudm91ZGlnIGludGVyYWN0aWUgdG9ldm9lZ2VuLgoKYGBge3J9CmdncGxvdGx5KHAgLCB3aWR0aCA9IDgwMCkKYGBg